home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
vbasic
/
loanapp.exe
/
LOANF4.FRM
< prev
next >
Wrap
Text File
|
1993-07-22
|
9KB
|
293 lines
VERSION 2.00
Begin Form Form4
BackColor = &H00808080&
ClientHeight = 3660
ClientLeft = 165
ClientTop = 2100
ClientWidth = 8880
ControlBox = 0 'False
Height = 4065
Left = 105
LinkMode = 1 'Source
LinkTopic = "Form4"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3660
ScaleWidth = 8880
Top = 1755
Width = 9000
Begin CommandButton Command3
Caption = "Cancel"
Height = 285
Left = 4995
TabIndex = 13
Top = 3150
Width = 3000
End
Begin CommandButton Command1
Caption = "OK"
Height = 300
Left = 885
TabIndex = 12
Top = 3150
Width = 3000
End
Begin PictureBox Picture5
Height = 900
Left = 3795
ScaleHeight = 870
ScaleWidth = 5010
TabIndex = 14
Top = 2010
Width = 5040
Begin CheckBox Check1
Caption = "Secondary Residence"
Height = 225
Index = 3
Left = 1740
TabIndex = 18
Top = 555
Width = 2190
End
Begin CheckBox Check1
Caption = "Primary Residence"
Height = 240
Index = 2
Left = 1740
TabIndex = 17
Top = 300
Width = 1890
End
Begin CheckBox Check1
Caption = "Investment"
Height = 255
Index = 1
Left = 1740
TabIndex = 16
Top = 45
Width = 1290
End
Begin Label Label5
Caption = "Property will be:"
Height = 210
Left = 45
TabIndex = 15
Top = 45
Width = 1455
End
End
Begin PictureBox Picture4
Height = 900
Left = 1920
ScaleHeight = 870
ScaleWidth = 1770
TabIndex = 3
Top = 2010
Width = 1800
Begin VBedit BEditF4
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 4
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 11
Top = 330
Version = 268435458
Width = 1680
End
Begin Label Label4
Caption = "Year Built:"
Height = 225
Left = 45
TabIndex = 7
Top = 45
Width = 990
End
End
Begin PictureBox Picture3
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 1770
TabIndex = 2
Top = 2010
Width = 1800
Begin VBedit BEditF4
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 3
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 10
Top = 330
Version = 268435458
Width = 1680
End
Begin Label Label3
Caption = "Number of Units:"
Height = 225
Left = 45
TabIndex = 6
Top = 45
Width = 1515
End
End
Begin PictureBox Picture2
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 8760
TabIndex = 1
Top = 1035
Width = 8790
Begin VBedit BEditF4
CellHeight = 480
CellWidth = 360
CharSet = 16651
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 2
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 9
Top = 330
Version = 268435458
Width = 8670
End
Begin Label Label2
Caption = "Purpose of Loan:"
Height = 225
Left = 45
TabIndex = 5
Top = 45
Width = 1575
End
End
Begin PictureBox Picture1
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 8760
TabIndex = 0
Top = 60
Width = 8790
Begin VBedit BEditF4
CellHeight = 480
CellWidth = 360
CharSet = 16651
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 1
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 8
Top = 330
Version = 268435458
Width = 8670
End
Begin Label Label1
Caption = "Legal Description of Property:"
Height = 255
Left = 45
TabIndex = 4
Top = 45
Width = 2580
End
End
End
Sub Check1_Click (Index As Integer)
If Form4.Visible = True Then
If Form4.Check1(Index).Value = 1 Then
For i = 1 To 3
If i <> Index Then
Form4.Check1(i).Value = 0
End If
Next i
End If
End If
End Sub
Sub Command1_Click ()
MainRec.C.C1 = Form4.BEditF4(1).Text
MainRec.C.C2 = Form4.BEditF4(2).Text
MainRec.C.C3 = Form4.BEditF4(3).Text
MainRec.C.C4 = Form4.BEditF4(4).Text
For i = 1 To 3
If Form4.Check1(i).Value = 1 Then
MainRec.C.CC1 = i
MainRec.C.C5 = Form4.Check1(i).Caption
Exit For
Else
MainRec.C.CC1 = 0
MainRec.C.C5 = ""
End If
Next i
UpdateLabelC
Form4.Hide
End Sub
Sub Command3_Click ()
Form4.Hide
End Sub
Sub Form_Load ()
Form4.Left = 300
Form4.Top = (Screen.Height - Form4.Height) / 2
End Sub